inherited frmSecao: TfrmSecao
  Left = 457
  Top = 46
  Width = 615
  Height = 486
  AutoScroll = True
  Caption = ''
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 411
    Width = 599
    inherited Bitnovo: TBitBtn
      ParentFont = False
    end
    inherited Bitgrava: TBitBtn
      ParentFont = False
    end
    inherited Bitcancela: TBitBtn
      ParentFont = False
    end
    inherited Bitedita: TBitBtn
      ParentFont = False
    end
    inherited Bitexclui: TBitBtn
      ParentFont = False
    end
    inherited Bitfecha: TBitBtn
      ParentFont = False
    end
  end
  inherited Panel2: TPanel
    Width = 599
    Height = 411
    inherited Panel3: TPanel
      Width = 597
      Caption = 'Se'#231#245'es'
      inherited GroupBox1: TGroupBox
        Left = 518
      end
    end
    inherited Panel4: TPanel
      Width = 597
      Height = 369
      Font.Name = 'Verdana'
      ParentFont = False
      object Label1: TLabel [0]
        Left = 22
        Top = 18
        Width = 33
        Height = 13
        Caption = 'C'#243'digo'
        FocusControl = EdtCodigo
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel [1]
        Left = 22
        Top = 59
        Width = 28
        Height = 13
        Caption = 'Nome'
        FocusControl = edtNome
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel [2]
        Left = 22
        Top = 100
        Width = 56
        Height = 15
        Caption = 'Comiss'#227'o'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Reference Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      inherited DBGrid1: TDBGrid
        Top = 152
        Width = 589
        TabOrder = 3
        TitleFont.Name = 'Verdana'
      end
      inherited SbHints: TStatusBar
        Top = 346
        Width = 589
      end
      object EdtCodigo: TDBEdit
        Tag = 1
        Left = 22
        Top = 31
        Width = 47
        Height = 21
        Hint = 'C'#243'digo da Se'#231#227'o '
        CharCase = ecUpperCase
        Ctl3D = True
        DataField = 'SEC_CODIGO'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = EdtCodigoExit
      end
      object edtNome: TDBEdit
        Tag = 1
        Left = 22
        Top = 72
        Width = 297
        Height = 21
        Hint = 'Nome da Se'#231#227'o '
        CharCase = ecUpperCase
        DataField = 'SEC_NOME'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnExit = edtNomeExit
      end
      object edtComissao: TDBEdit
        Left = 22
        Top = 116
        Width = 97
        Height = 21
        CharCase = ecUpperCase
        DataField = 'SEC_COMISSAO'
        DataSource = DtSrc
        MaxLength = 9
        TabOrder = 4
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Secao
    Top = 0
  end
  inherited ZSQLC_ConsultaDbGrid: TZReadOnlyQuery
    SQL.Strings = (
      
        'select sec_codigo as Codigo, sec_nome as Nome  from Secao order ' +
        'by sec_nome')
  end
  inherited CDS_Consulta_DbGrid: TClientDataSet
    object CDS_Consulta_DbGridCODIGO: TStringField
      FieldName = 'CODIGO'
      Required = True
      Size = 3
    end
    object CDS_Consulta_DbGridNOME: TStringField
      FieldName = 'NOME'
      Required = True
      Size = 40
    end
  end
  object SQLC_Secao: TSQLClientDataSet
    CommandText = 'select * from SECAO where sec_codigo=:pcodigo;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
        Value = ''
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 90
    object SQLC_SecaoSEC_CODIGO: TStringField
      FieldName = 'SEC_CODIGO'
      Required = True
      Size = 3
    end
    object SQLC_SecaoSEC_NOME: TStringField
      FieldName = 'SEC_NOME'
      Required = True
      Size = 40
    end
    object SQLC_SecaoSEC_COMISSAO: TFMTBCDField
      FieldName = 'SEC_COMISSAO'
      Precision = 15
      Size = 2
    end
  end
end
